home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / Requester.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  3.3 KB  |  136 lines
  1. "--------------------------------------------------------------------"
  2. " Requester Class implements control of Amiga Requesters, except for "
  3. " displaying them, which is done inside the Window class.            "
  4. " There are simpler Requester methods in class AmigaTalk & Window,   "
  5. " but they do NOT have as much flexibility as this Class.            "
  6. "--------------------------------------------------------------------"
  7.  
  8. Class Requester :Glyph ! private !
  9. [
  10.    "reqValuesArray has the following fields:
  11.        LeftEdge, TopEdge, Width, Height, RelLeft, RelTop,
  12.        ReqGadget, ReqBorder, ReqText, Flags BackFill, ImageBMap,
  13.        ReqImage, ReqLayer:
  14.    "
  15.    initialize: reqValuesArray
  16.  
  17.       <primitive 185 3 0  (reqValuesArray at: 1)  private>.
  18.       <primitive 185 3 1  (reqValuesArray at: 2)  private>.
  19.       <primitive 185 3 2  (reqValuesArray at: 3)  private>.
  20.       <primitive 185 3 3  (reqValuesArray at: 4)  private>.
  21.       <primitive 185 3 4  (reqValuesArray at: 5)  private>.
  22.       <primitive 185 3 5  (reqValuesArray at: 6)  private>.
  23.       <primitive 185 3 9  (reqValuesArray at: 7)  private>.
  24.       <primitive 185 3 10 (reqValuesArray at: 8)  private>.
  25.       <primitive 185 3 8  (reqValuesArray at: 9)  private>.
  26.       <primitive 185 3 6  (reqValuesArray at: 10) private>.
  27.       <primitive 185 3 7  (reqValuesArray at: 11) private>.
  28.       <primitive 185 3 11 (reqValuesArray at: 12) private>.
  29.       <primitive 185 3 12 (reqValuesArray at: 13) private>.
  30.       <primitive 185 3 13 (reqValuesArray at: 14) private>.
  31.  
  32.       ^ self
  33. |
  34.    getStartPoint
  35.  
  36.       ^ <primitive 185 2 0 private> @ <primitive 185 2 1 private>
  37. |
  38.    setStartPoint: newPoint
  39.  
  40.       <primitive 185 3 0 (newPoint x) private>.
  41.       <primitive 185 3 1 (newPoint y) private>
  42. |
  43.    getReqSize
  44.  
  45.       ^ <primitive 185 2 2 private> @ <primitive 185 2 3 private>
  46. |
  47.    setReqSize: sizePoint
  48.  
  49.       <primitive 185 3 2 (sizePoint x) private>.
  50.       <primitive 185 3 3 (sizePoint y) private>
  51. |
  52.    getRelativePoint
  53.  
  54.       ^ <primitive 185 2 4 private> @ <primitive 185 2 5 private>
  55. |
  56.    setRelativePoint: newRelPoint
  57.  
  58.       <primitive 185 3 4 (newRelPoint x) private>.
  59.       <primitive 185 3 5 (newRelPoint y) private>
  60. |
  61.    getFlags
  62.  
  63.       ^ <primitive 185 2 6 private>
  64. |
  65.    setFlags: newFlags
  66.  
  67.       <primitive 185 3 6 newFlags private>
  68. |
  69.    getBackFill
  70.  
  71.       ^ <primitive 185 2 7 private>
  72. |
  73.    setBackFill: newBackFill
  74.  
  75.       <primitive 185 3 7 newBackFill private>
  76. |
  77.    getReqText
  78.  
  79.       ^ <primitive 185 2 8 private>
  80. |
  81.    setReqText: newReqText
  82.  
  83.       <primitive 185 3 8 newReqText private>
  84. |
  85.    getReqBorder
  86.  
  87.       ^ <primitive 185 2 10 private>
  88. |
  89.    setReqBorder: newReqBorder
  90.  
  91.       <primitive 185 3 10 newReqBorder private>
  92. |
  93.    getReqGadget
  94.  
  95.       ^ <primitive 185 2 9 private>
  96. |
  97.    setReqGadget: newReqGadget
  98.  
  99.       <primitive 185 3 9 newReqGadget private>
  100. |
  101.    getReqBitMap
  102.  
  103.       ^ <primitive 185 2 11 private>
  104. |
  105.    getReqImage
  106.  
  107.       ^ <primitive 185 2 12 private>
  108. |
  109.    getReqLayer
  110.  
  111.       ^ <primitive 185 2 13 private>
  112. |
  113.    setReqBitMap: newBitMapObject
  114.  
  115.       <primitive 185 3 11 newBitMapObject private>
  116. |
  117.    setReqImage: newImageObject
  118.  
  119.       <primitive 185 3 12 newImageObject private>
  120. |
  121.    setReqLayer: newLayerObject
  122.  
  123.       <primitive 185 3 13 newLayerObject private>
  124. |
  125.    dispose
  126.  
  127.       <primitive 185 0 private>.
  128.  
  129.       ^ nil
  130. |
  131.    new
  132.  
  133.       private <- <primitive 185 1>.
  134.  
  135.       ^ self
  136. ]